Nesta análise utilizaremos dados coletados no site de transparência da câmara dos deputados que retratam as despesas da CEAP (cota para o exercício da atividade parlamentar). Essa cota é mensal e é destinada para custear gastos exclusivamente vinculados ao exercício da atividade parlamentar como passagens áreas, telefonia, serviços postais e etc.
O data frame contém as seguintes colunas:
gastos_por_dep <- dados %>%
group_by(nomeParlamentar, sgUF) %>%
summarise(valorLiquido = sum(valorLiquido))
plot_ly(data = gastos_por_dep,
x = ~nomeParlamentar,
y = ~valorLiquido,
type = "scatter") %>%
layout(xaxis = list(showticklabels = FALSE))
## No scatter mode specifed:
## Setting the mode to markers
## Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode
No gráfico acima conseguimos visualizar a resposta da pergunta, os pontos mais elevados representam deputados com gastos maiores, os pontos mais abaixo representam deputados com gastos menores. Podemos visualizar qual deputado é representado por cada ponto ao passar o cursor por cima deste.
gasto_exterior_estado <- dados%>%
select(sgUF, tipoDocumento, valorLiquido) %>%
group_by(sgUF, tipoDocumento) %>%
summarise(valorLiquido = sum(valorLiquido)) %>%
filter(tipoDocumento == 2)
p <- ggplot(data = gasto_exterior_estado,
mapping = aes(x = sgUF,
y = valorLiquido,
color = sgUF)) +
geom_point()
ggplotly(p)
gasto_partido_pb <- dados %>%
select(sgUF,valorLiquido, sgPartido) %>%
filter(sgUF == "PB") %>%
group_by(sgUF, sgPartido) %>%
summarise(valorLiquido = sum(valorLiquido))
p <- ggplot(data = gasto_partido_pb,
mapping = aes(x = sgPartido,
y = valorLiquido,
fill = sgPartido)) +
geom_bar(stat = "identity")
ggplotly(p)
Com o gráfico acima é possível observar o partido que mais gastou e o que menos gastou,PMDB e PROS, respectivamente. Os valores gastos em reais podem ser visualizados ao se colocar o cursor em cima da barra desejada e observando o valorLiquido.
limite_CEAP <- read.csv("data/limiteMensalCEAP.csv")
colnames(limite_CEAP)[1] <- c("sgUF")
gasto_limite_CEAP <- merge(x = gastos_por_dep, y = limite_CEAP, by = "sgUF", all.y = TRUE)
p <- ggplot(data = gasto_limite_CEAP,
mapping = aes()) +
geom_point(aes(x = nomeParlamentar,
y = valorLiquido )) +
geom_hline(aes(yintercept = limite_mensal,
colour = "#BB0000")) +
theme(axis.text.x=element_blank(),
axis.ticks.x=element_blank()) +
facet_wrap(~sgUF, ncol = 3)
ggplotly(p)
Nos gráficos acima mostramos o deputados e seus respectivos gastos com CEAP, por Estado. Os pontos acima da linha avermelhada são os que ultrapassaram o teto de gastos. O valor exato do limite de cada Estado pode ser visualizado colocando o cursor em cima da linha vermelha, o gasto e nome individual de cada deputado pode ser visto da mesma maneira.
gasto_estado_aereo <- dados %>%
select(sgUF, tipoDespesa, valorLiquido) %>%
filter(tipoDespesa == "Emissão Bilhete Aéreo") %>%
group_by(sgUF) %>%
summarise(valorLiquido = sum(valorLiquido))
p <- ggplot(data = gasto_estado_aereo,
mapping = aes(x = sgUF,
y = valorLiquido,
fill = sgUF)) +
geom_bar(stat = "identity")
ggplotly(p)
No gráfico acima podemos observar que o Estado que mais possui despesas com emissão de bilhetes aereos é a São Paulo.
gasto_partidos <- dados %>%
select(sgPartido, tipoDespesa, valorLiquido) %>%
filter(sgPartido == "PMDB" | sgPartido == "PT" | sgPartido == "PSDB") %>%
group_by(sgPartido, tipoDespesa) %>%
summarise(valorLiquido = sum(valorLiquido))
p <- ggplot(data = gasto_partidos,
mapping = aes(x = tipoDespesa,
y = valorLiquido)) +
geom_bar(stat = "identity", nrow = 3) +
facet_wrap(~sgPartido) +
theme(axis.text.x=element_blank(),
axis.ticks.x=element_blank())
## Warning: Ignoring unknown parameters: nrow
ggplotly(p)
Os partidos escolhidos foram o PMDB, PT e PSDB.Podemos ver que dentre os 3 partidos, o que mais possui gastos com emissão de bilhetes aereos é o PT, seguido pelo PMDB e PSDB, respectivamente. Além disso, a emissão de bilhetes aereos é, em todos os três casos, o maior ou segundo maior(PMDB) gasto do partido. O PMDB diverge dos outros dois, tendo como maior gasto a divulgação de atividade parlamentar.